home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir39 / clipboot.zip / ARG1.C < prev    next >
C/C++ Source or Header  |  1993-04-30  |  441b  |  24 lines
  1. #include <extend.h>
  2. #include <string.h>
  3. #include <stdio.h>
  4.  
  5. extern int __argc;
  6. extern unsigned char**  __argv;
  7.  
  8. CLIPPER getargc( void )
  9. {
  10.     _retni( __argc - 1 );
  11. }
  12. CLIPPER getargv( void )
  13. {
  14.     int argnum;
  15.     if (PCOUNT && ISNUM(1))
  16.         argnum = _parni( 1 );
  17.     else
  18.         argnum = 0;
  19.     if (argnum >= ( __argc ))  
  20.         _retc("");
  21.     else
  22.         _retclen( __argv[argnum], strlen( __argv[argnum]) );
  23. }
  24.